home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / MacInterface / notification.icl < prev    next >
Encoding:
Modula Implementation  |  1994-06-24  |  481 b   |  20 lines  |  [TEXT/3PRM]
  1. implementation module notification;
  2.  
  3. import mac_types;
  4.  
  5. ::    NMRecPtr :== Int;
  6.  
  7. NMInstall :: !NMRecPtr !Toolbox -> (!Int,!Toolbox);
  8. NMInstall nmReqPtr t = code (nmReqPtr=D1,t=U)(r=D1,z=Z){
  9.     instruction 0x2041    | move.l d1,a0
  10.     instruction 0xA05E
  11.     instruction 0x2001    | move.l d1,d0
  12. };
  13.  
  14. NMRemove :: !NMRecPtr !Toolbox -> (!Int,!Toolbox);
  15. NMRemove nmReqPtr t = code (nmReqPtr=D1,t=U)(r=D1,z=Z){
  16.     instruction 0x2041    | move.l d1,a0
  17.     instruction 0xA05F
  18.     instruction 0x2001    | move.l d1,d0
  19. };
  20.